MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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go4 
; FACILITY: Run-Time Library Screen Management 
ABSTRACT: 


This module contains routines which convert: 
Tern ineter sequences to key codes 
Key names to key codes 
Key codes to key names 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 24-Feb-1983 


ODIFIED BY: 

-001 - Original. SBL 24-Feb-1983 

-002 - Add E1 - E6 as synonyms for editing keys. 29-Jul-1983 
-005 - Add routine to convert codes to names, SBL e ~Aug-1983 
-004 - Make En the main names. STAN 8-Jul-1984. 
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SMGSSKEY_UTIL - Key transl : AX/VMS o V04-00 Page 
\- DECLARATIONS ~SEP-1984 90: t 8h SMGRTL. SSMGKEYUTI MAR: 1 . 3) 
~SBTTL DECLARATIONS 
i ; LIBRARY MACRO CALLS: 
5 SSMGDEF : Get terminator codes 
: ; EXTERNAL DECLARATIONS: 
8 9 -DSABL GBL 3 rce all oe symbols to be declared 
8 $i «EXTRN SMGS_INVKEYNAM ; Tavatid key nam 
8 96 3; MACROS: 
65 ; 
00 64 ; NONE 
000 65 3 
000 08 ; EQUATED SYMBOLS: 
000 67 ; 
000 68 
0000001A 0000 $? K_CTRLZ = 26 
0000001B 0000 0 KAES¢ = 27 
0000008F 0000 71 K_SS3 = 143 
0000009B 0000 ue K_CSI = 155 
0000 7 
0000 74; 
0000 75 ; OWN STORAGE: 
0000 76; 
0000 7 3 NONE 
0000 78 ; 
0000 79 ; PSECT DECLARATIONS: 
0000 80 ; 
0000 81 
00000000 Hf -PSECT _SMGSCODE PIC, USR, CON, REL, LCL, SHR, - 
9000 83 EXE, RD, NOWRT, LONG 


———— 
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§ -SBTTL Terminator definitions 

34 

: : Define macros for table generation 

«MACRO TERM SEQ, NAME 

“WORD SMGSK_TRM_'NAME' 

8 . TERM2 SEQ, NAME 

ASCII SEQ 

0 ~- 

0 

0 

A) 

0 

0 

0 
| 
| 
| 
J 


a 
“WORD SMGSK_TRM_'NAME' 


B 
C 
C 
C 
C 
C 
E 
F 
kK 
K 
K 
re 
iS 
® 
K 
€ 
K 


U 
H 
0 
S$ 
$ 
$ 
S$ 
0 
E 
E 
E 
E 
E 
NO 
NO 
SE 
SE 
SE 
SM 


: TERM3 SEQ, NAME 
[ASCII SEQ 
aie 
“WORD  SMG$K_TRM_'NAME" 


5$* 
; Terminators of the form <ESC>x 


ESC_1BYTE: 
TERM] = "“A'', UP 
TERM] © 'B'", DOWN 
TERM] = “'C'") RIGHT 
TERM] = 'D'") LEFT 
TERM] = 'P') PFA 
TERMI (10"", PEG 
TERM] «= "'R'') PF 
TERMI = "'S'", PFA 

00 BYTE 0 


hd 
3; Terminators of the form <CSI>x or <SS3>x 


CS1_1BYTE: 
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PRO OD NAUE WIN @ OOO NAME WIN O OOO NAME WIN @ OOOO UE WW 0 OONOU ES WWIN OO 
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AVEO VVVVUNT zZoOoC 
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*e2es 8 &® © © & & & 
-“—-s ef ee se © = 
-_—e* © © =e = © = 
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; End of List 
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SMGSSKEY_UTIL = Key translation utility procedures 16-SEP-1984 00:11:01 VAX/VMS Macro V04-00 Pa 
1-004 SMGSSTERM. TO. KEYCODE - frenslete termina ae Abi b8 EGMGRTL. SREISMCKEYUTI -MAR: 1 tt 
4 139 ‘n -SBTTL SMGSSTERM_TO_KEYCODE - Translate terminator to key code 
O04 19¢ 3; FUNCTIONAL DESCRIPTION: 
D4 §=194 ; SMGSSTERM_TO_KEYCODE translates a terminator character sequence 
Boe 132 ; to a key code. 
Roe 199 ; CALLING SEQUENCE: 
o04 199 ; key_code.wl.v = SMGSSTERM_TO_KEYCODE (terminator.rt.r, term_length.rl.v) 
0 D4 bs ; 
Ope ¢ 3 FORMAL PARAMETERS: 
00000004 G0p4 04 terminator = 4 ; The terminator string, passed by reference. 
00000008 00D4 09 term_length = 8 ; The length of the terminator string, passed 
0D4 0 3; by immediate value. 
0004 08 
0004 09 ; 
00D4 10 ; IMPLICIT INPUTS: 
00D4 11 ; 
0004 \¢ : NONE 
00D4 13; 
0004 14 ; IMPLICIT OUTPUTS: 
00D4 13 3 
00D4 1g 3 NONE 
00D4 7 3 
00D4 18 ; COMPLETION STATUS: 
00D4 17 3 
00D4 20 ; The code number of the terminator key, if any. 
00D4 $} 3 SMGSK_TRM_BUFFER FULL if terminator {ength is zero 
Babe ¢ 3 SMG$K_TRM_UNKNOWN if terminator is unrecognized 
00D4 $3 ; SIDE EFFECTS: 
00D4 ao 3 
00D4 63 NONE 
0D4 ‘3 
0D4 8 ;-- 
Bop 9 
000C B08 9 -ENTRY SMGSSTERM_TO_KEYCODE, “M<R2,R3> 
52 04 AC 7D bop 3 MOVQ terminator(AP), R2 ; Get terminator address and Length 
DA ; : into R2 and R3 
50 53 0 c3 DA 4 SUBL3 #2, R3, RO : Is length within bounds? 
43 19 00D 5 LSS CHECK_SINGLE : May be a single charac er 
03 28 D1 E § CMPL # ; Must be between 2 and 5 chars 
8 1A 3 BGTRU NOTRANS 3; No translation 
51 8¢ 9A BE 9 MOVZBL (R2)+, R1 ; Get first character 
1B 2, oe E rt CMPB Ri, #K_ESC : Is the first character <ESC>? 
24 if OEB 24 BNEQ Not st : Skip if not 
3 3 OED 43 DECL R 3; Look at next character 
51 3 A EF 4 MOVZBL (R2)+, R1 3 
5B 8F 91 F2 44 CMPB R1, #*A/C/ 3 <ESCoL is the same as <CSI> 
48 13 FS 45 BEQL —USE_CSI ; Skip f it is 
4F BF 6519 F 46 CMPB R1,°#*A/0/ 3; <ESC>0 is the same as <SS3> 
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1-004 SMGSSTERM. 10. KEYCODE - Translate termina o-SEpa| 3b 99: ib: 88 soe SMGKEYUTI MAR; 1 . (4) 
13 ore 47 BEQL USE_SS3 3; Ski¢g it, it 
91 F rh CMPB R1, #*A/2/ 3 <ESC>? is $33> on VT52s 
13 10 5 BEQL -USE_SS3 : Skip if its 
1 1 3¢ 
1 26 3 : 2 ott here if the character following <ESC> does not make it <CSI> 
! a7 i ; 7 $3>. It must then be a single character to look up in ESC_iBYTE. 
10 ?.* 
D7 18 2$ DECL R3 ; Look at next character 
12 0105 5 BNEQ NOTRANS : If not now zero, no translation 
3 B187 28 MOVAB W*ESC_1BYTE, RO 3; Get table address 
D 10C 5 MOVL R1, R2 3; Load R2 with character 
11 O10F 60 BRB SEARCH_1BYTE ; Skip to table search code 
gt 8h 
0111 4 ; We get here if the first character was not <ESC>. Check for <CSI> or <SS$3>. 
gy 
ati) 66 NOT_ESC: 
91 0111 sof CMPB R1, #K_CSI : Is it <CSI>? 
13. 0115 268 BEQL usE _CST : Skip if it is 
91 0117 269 CMPB ke 3953 : Is it <S$3>? 
13 0118 270 BEQL Usé_§ : Skip if it is 
ae 
2% 
011D rg ; We get here if the terminator has no translation 
0110 274 ;- 
ore $32 NOTRANS 
3C 0110 r6 MOVZWL #SMGSK_TRM_UNKNOWN, RO ; Unknown terminator 
04 8158 78 RET ; Return terminator code 
ee 
Bis 81 ot here if the terminator is 0 or 1 characters. 
012 oe ineens E: 
D6 0123 8 INCL RO ; Check for Length of 1 
12 0125 84 BNEQ BUFFER_FULL :; If original count wes zero, full buffer 
9A 0127 85 MOVZBL (R2), RO 3; Get terminator b byte 
04 O12A 86 RET ; Return with terminator code 
0128 87 BUFFER_FULL: 
3C 60128 He MOVZWL #SMGSK_TRM_BUFFER_FULL, RO ; Return buffer full code 
04 0130 9 RET 
B88? 
4 1 38 3; The terminator starts with <SS3>. 
131 594° 
0 1 95 USE_SS3: 
D1 = 0131 39 CMPL R3, #2 ; There must at only 1 character 
134 9 : pot ioutng >. 
12 0134 9 BNEQ NOTRANS 3: No translation if not 1 character 
9E 0136 29 MOVAB W*CSI “ YTE, RO ; 
9A 0138 00 MOVZBL PR 3 Load R2 with character 
11 i i BRB SEARCH BYTE > Use next byte only 
14 3+ 


Use same table as <CSI>. 
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SE_CSI: 
CMPL oR3, #3 
BGTR SEARCH. 3BY TE 
BEQL § SEARCH~2BYTE 
MOVAB WACSI_TBYTE, RO 
MOVZBL (R2),~R2 


:" Use only the next byte to determine the 
; _table address and RD 


SEARCH_1BYTE: 
MOVZBL 


VZBL (RO)+, R1 
EQL -NOTRANS 

CMPB RT, R2 

BEQL FOUND 

ADDL2 #2, RO 
RB SEARCH_1BYTE 


| te 
; Use the next two bytes to determine the 


SEARCH_2BYTE: 
MOVAB 


10$: + fe 


oO 
=z 
wv 
<£ 
—“B "DZ -- =e 


: Use the next two bytes to determine the key 
Note that table CSI_3BYTE uses * Longword entries with the 


: _high byte zero. 
SEARCH_3BYTE: 
PL R3, #4 


NOTRA 
MOVAB u*cst Mavte RO 
EXTZV #24, (RO), R2 
‘Roye a 


10$: MOVL (RQ) + 
BEQL 15$ 
CMPL Ri, R2 
BEQL FOUND 
ADDL2 #2 0 
BRB 10$ 

5$ BRW NOTRANS 


Be 11:45:08 ESMGRTL.SREISMGREYUTI.MAR;1 29° 


; ; The terminator starts with <CSI>. 


Are there 7 2 or >=3 characters 
after <CSI> 
>=3 more bytes 
more oreee 
more byt 
Load R2 Ae character 


key. RO has been loaded with the 


is the byte to Look at. 


Get byte to compare against 
End of table? 

Compare character 

End if fou 

Skip over “hee ode 

Repeat until found or table end 


key. (R2) is the word to Look at. 


Get table address 

Get two bytes from terminator 
Get two bytes to compare against 
End of ta 

Compare characters 

End if found 

Skip over hee 4 ode 

Repeat until Sauna or table end 


(R2) starts the bytes 


More than 3 bytes after <CSI>? 

No translation if so 

Get table address 

Get next three bytes 

Get four b tes to compare against 


able? 
Compare characters 
End if found 

Skip over "hey code 

Repeat until found or table end 
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mee 
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30 


3* 
; Translation found. Store the key code which is in the word addressed by RO 


< 
S 


eye. (RO), RO ; Get key code 


8 
(4) 


M13 
SMGSSKEY_UTIL - Key translation utility procedures 16-SEP-1984 00:11: AX/VMS Macro V04-00 
1-004 List of key names sh z ase 00 1b: b8 SMGRTL.SRCIJSMGKEYUTI.MAR;1 


-SBTTL List of key names 


— 
oO 
> 

a 


KEY NAME 35] 43 a list of all possible key names whose codes are in 
the range 256-383. This excludes control keys. 
The format of this List is: 


re code-128 - 1 byte 

ASCIC key name =n bytes 

{his format depends on knowing that no key names with codes higher than 
| 
| 


are defined, that no character between 128 and 255 can 
appear in key names, and that the maximum Length of a key name is <32. 


This List is used in two ways: 
1. To look up a key name (either to see if it is valid or to 
get the cocrespeng ne code), do a MATCHC of the ASCIC ate name 
nto KEY_NAME_LIST. The byte preceding the found entry is the 
key code minus 128. 


~m 
a 


To convert a key code into a name, do a LOCC of the key code into 
KEY_NAME_LIST. The ASCIC key name follows the found entry. 


ge 
; Create macro to add an entry to the List. 


.MACRO KEY_ENTRY NAME 
“BYTE <SMG$K_TRM_'NAME’ = 128> 
“ASCIC  /NAME/ 


KEY_NAME LIST 
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y procedures 
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List of key names 


= Ke 
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.-KEY_NAME_LIST 
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KEY_NAME_LIST_LEN = 
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Translate key nam 6=-SEP-1984 SMGRTL.SRCJSMGKEYUTI .MAR; 1 (6) 
a -SBTTL SMGSSNAME_TO_KEYCODE - Translate key name to key code 
; FUNCTIONAL DESCRIPTION: 


SMGSSNAME_TO_KEYCODE translates a key name 
to a key code. 


CALLING SEQUENCE: 
ret_status.wlc.v = SMGSSNAME_TO_KEYCODE (key_name.rt.r, key_cude.wl.r) 


wt 
= 
ax 
AD 
aan 
= 

> tad 
za5 
mao 
or 
m—. 
<o 
as 
coc 
mer 


0 


FORMAL PARAMETERS: 


key_name = 4 ; The address of a counted string (byte count) 
containing the name of the key to look up. It 
is assumed that the eering has been upcased and 
stripped of trailing blanks. 


00000004 
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00000008 key_code = 8 ; A longword into which is stored the key code. 


IMPLICIT INPUTS: 
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0 
0 
0 
: NONE 
0 B : IMPLICIT OUTPUTS: 
028 : NONE 
028 3 
bse ; COMPLETION STATUS: 
096 : 1 - Key found 
8 : : 0 - Key not found 
036 > SIDE EFFECTS: 
028 ; NONE 
8B ; 
; s°* 
003C B ENTRY SMGSSNAME_TO_KEYCODE, “M<R2,R3,R4,R5> 
54 04 AC 00 B2 MOVL hey pong P), R4 3; Get pointer to ASCIC hey name 
55 64 QA B6 MOVZBL (R4), R ; Get length in R5, data in (R4) 
55 06 89 INCL R r eee one for the count 
ig 8B BEQL 10$ ; Exit if zero length 
06 § 9} 8 CMPL RS, #6 ; Could it be CTRLx? 
1F : C BNEQ ¢ 3 Skip if not 
40525443 8F 01 “3 9 ef back (R4), #*A/CTRL/ : th i; —_ with CTRL? 
: no 
50 05 A& 40 8F a8 C SUBB3 #*Xx40, 5(R4), RO 3 Convert 5th character to code? 
5 D BLEQ : Skip if LSS ‘A’ 
1A 0 o1 D CMPL RO, #K_CTRLZ ; LEQ CTRLZ? 
4 18 D7 BLEQU 3 ane if not 
50 00000000'8F ? r 108: oy. #SMGS_INVKEYNAM, RO ; Indicate invalid key name 
E ? 
FEBO CF 0116 BF 64 55 39 €1 20$: MATCHC RS, (R4), #KEY_NAME_LIST_LEN, W*KEY_NAME_LIST 3 


_—————————— 
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SMGSSKEY_UTIL cet brane slation utility procedures 16-SEP- 138% 90:1] +? AX/VMS Macro V04-00 Page 12 
1-004 SMGS NAME_TO_KEYCODE = Translate key nam 6-SEP-1984 8 CSMGRTL.SRCJSMGKEYUTI.MAR; 1 (6) 

EA 14 ; Look up key name 

1 EA 15 BNEQ 19s 3: Skip if not found 

EC 1 SUBL2 : Get’ back to first _name byte 

fF 5) MOVZBL RFR RO : Get code (m (minus 128) 

F3 13 ADOL #12 ; Re-bias code 

FA 19 308: MOVL m0, akey. code (AP) ; Store key code 

fe AI MOVL ; Return success 

02 522 
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00000100 8F 
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rocedures = SEP=-1 1 YAX/VMS Macro V04-00 7 13 
1aPeCSte key cod Gosep-i9be Siiusiom LenCH Te Seese Wee Ol, wanes OMe 13, 


a -SBTTL SMGSSKEYCODE_TO_NAME = Translate key code to key name 
; FUNCTIONAL DESCRIPTION: 


ge odes. 3'° NAME translates a key code 
to a key name 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSKEYCODE_TO_NAME (Key. code.rl.v, 
key_name_ptr.wa.r) 


os 
ow 
me 
e 
2s 
Rc 
mer 
— 


owe 
=z 
ax 
AO 
PS 
x 
mer 
SONA NE WINS OD NA UNE NN SO OD NAUE WP: FOOD NAU EWN 0 ODNOULS WN OOONOUS O- 


FORMAL PARAMETERS: 
key_code = 4 ; A longword containing the key code to be converted. 


key_name_ptr = 8; Address of an area to store an ASCIC key name. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


1 = Key found 
0- Key not found 


SIDE EFFECTS: 


MONS DW QNOGS BF MS BW EPI IP INININININIPINIPININININPIPIPIPINPIPIPIPIPIPINPIPIPPOPIPYPIPIPUNRIPINPININN = OW 


OOOO OOCOOCOOOOOOCOOOOOSOOSSOOOSOSOOOSCOOOOOOCOSOOOOOOOOOOOCOOOOOOCOO 
WAGEPIPININININ | “DOOODOOOOO OOOO OCOOSOOOSOOCOOOSOOOOOOOOSOOOOOOOOCOOOOO <5 
PUPIL VDVUDVIVIVDVIVIVLIVIUIVIUSIUSVSIVIVSUSVSIVIVIVSVS USUI VST USSU VS USVI VST OOS ISIS IOS IOS OSI 
DANII D DDD DD TTT Be BS BB BB NAIA NIInonononornor 


NAA ANAAAAANAA AIAN AI AAIANINI WIN ANIAINI AWN AWA AAAI NI WNAWW 


NONE 
003C¢ -ENTRY SMGSSKEYCODE_TO_NAME, abe 1 aoe — R5> 
0 MOVL Key. code(AP)> R& 3 sees. 
1 BEQL 1 : net ke nown 
D1 CMPL RG, #26 ; Is it CTRLA ne CTRLZ? 
1A BGTR ; Skip if not 
81 ADDB #*x40 vi -(SP) 3; Build CTRL x on stack (x=A-Z) 
DD PUSHL #*A/CTRL 
90 MOVB #5, cigs ; Push count 
+ MOVL ; Put pointer to name in R1 
1 BRB CObE FOUND : Join common code 
D1 108: CMPL #256 : Is it a keypad code? 
1€ BGEQU Og : Skip if so 
e 15$: chat RO ; Key "eae not found 
¢ 20$: SUBL2 #128, R4 3 Nota valid ¢ tor atlas in table 
D CMPL  R4, #256 ; Not a val 
1E BGEQU 15 : Skip if n 
3A LOCC R4, MKEY_NAME_LIST_LEN, W*KEY FNAME "ist ; Look for code 
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os 
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aBSCStEUSy coo ECSERCTBEE 9P:U3:0) ARATE. SRES2 


15$ 

R1 ; R1 now points to key name 
(R1), i; Get Length of string 

Re ; Add one for count 

R cet). @key_name_ptr(AP) ; Move key name 

#1, RO ; Success 


o V04-00 P 
SMGRTL.SR RCIS SMGKEYUTI MAR; 1 
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0358 591 ~ END ; End of module SMGSSKEY_UTIL 
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- Key translation utility procedures 


SMGSSKEY_UTIL 
Symbol table 


2 2 
w w 
w w 
a i+ 4 
Vv vw z 
y=} Yw -s 
” © orvrd 
-—-D>r- >ortw2ae = 
WOr-DOu 2K VM TWEOIUM << 
O00 00 Wetwweuwuuw Gu wWZzo Zz 
tf wt et ot st IE ZOCAOAAAAeannD> 
s#eeeseesepeepee@ees#e 6 6 6 6 6 § Rapa 
(_= ee = = SS Se Se SS Se SS SS Se ee) 
Qoanocacacacacacaacaaa>- 
(cl aul gue cee coe coe uel el oe ol el el cl el oe oe ol ol oe” oe 
tetspceeeceeeceeceeeeee § Mm 
Df af bef be Of Oe Oa On Oa a OOO OOO YD 
POA MAAAAAAAAGAAAARMAWE | 1 
OVVOVVOI GO VV OO VVVV VVVVVeEuw 
/= = = ee SS eS Se Se eS Se ee ee ee Te) 
ANMANNMNMNMMNMNVWHMNMMHWNUNNYEDDID 
cucucucucucucucy N cucucucucucucucs 
OOCOOOOoOoOO Oo OOoCCooOCOooO 
pe TUTU) 
aeancacacaca e @eaacaacacca 


MMO OOOS TF LOO OOM. OF & WWNVOST WOOP. OO fC DMDOWUM TNO ff DOVWLOKP-A.OSFNOR. CO 
NOT HN OPA OOD OD OD FVII. 0 D0. NI IMM OO NICKUICUIEICUINUINICUINM = = NICUIPIOINOOOOO 


——MOOOCS OO —-OCOCOCSO KK KKK MNO KK eK eR CR RK OC CC CO CC CC CCC CCC CC CC CeO Oe 
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w MVNa WWWWOODOOCOKNUMTNO Zeer KKK KK VOR OO —wWZ0A0000 
a Cnkeml anal ah | er ar ee et ERE 
ajVva awa >> > ‘tee eeepeeeeeeoceegeepeGeeeEe Oe eUHEREeE HEHE SS 
PZ Z2www ‘ee pa eh rah 999433 33335333454445444455 
a ae Wu - ee BESS SSAEEAAESAAAA AAS 
hO>>>> eess5 m™ PO 86 WW Ee eR ee eR eR Re eR eR RR Re eR ee ee ee 
Oe — et EET Spree 5 Seay. @#enuenst S #6 ¥, 8, #eecueegeeeues oes, 

—_ 

ous ttt 2 LLL LA DAE tx x AABAAA AAA AAA cence os 
SeCRROSOUOUOG th OOuuue Ee ee eee eee eee eeeee see eeeeeerereese 
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SMGSSKEY_UTIL - Key translation utility procedures 


Page 
Psect synopsis 


toe wm emer aoa aman } 


: Psect synopsis ! 
pone mere esceesce eat 


PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABSS SOO gee ( 0.) 01 ¢ #1.) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 

_SMGSCODE 0000035 : 856.2 Be t- et PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
owe ee me ee ee ES Ge ae ee ee a 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 13 00 +00: 00.03 00:00:01 «38 

Command processing 88 Bo 288: 0.55 00:00:07.18 

Pass 147 0:00:04.09 BS +88 60-06 

Symbol table sort 0 hs SF 00:00:00.80 

Pass 2 98 00:00:01.4 BF RD Br «he 

Symbol table output 9 00:00:00.07 0:00:00.0 

Psect synopsis output 3 00:00:00.04 00:00:00.08 

Cross-reference output 0 00:00:00.00 be Bo 

Assembler run totals 358 00:00:06.49 0:00:36.95 


The working set Limit was 1050 pages. 

22486 bytes (44 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 233 non-local and 9 local symbols. 
591 source Lines were read in Pass 1, producing object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


+ 
! Macro Library statistics : 
+ 


Macro library name Macros defined 


~ $522 S0UAE: SMGRTL.OBJJSMGRTL .MLB; 1 1 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 3 
TOTALS (all Libraries) 4 


262 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:SMGKEYUTI/OBJ=OBJ$:SMGKEYUTI MSRCS$:SMGKEYUTI /UPDATE=(ENHS: SMGKEYUTI)+LI 
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